home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / ds40.zip / DOORSORC.INT < prev    next >
Text File  |  1991-10-19  |  6KB  |  167 lines
  1. DECLARE SUB ShellToDos (Shell.String$)
  2. DECLARE SUB QSend (WD$, Enter!)
  3. DECLARE FUNCTION CommKeyInkey$ ()
  4. DECLARE FUNCTION FileOpen! (FileName$, Access$, Sharing, C!)
  5. DECLARE FUNCTION CheckTimeLeft! ()
  6. DECLARE SUB BackSpace (WD$)
  7. DECLARE SUB ExtendedCode (A$, KeyBoard.Time.Out)
  8. DECLARE SUB BeepSpeaker ()
  9. DECLARE SUB NL (How.Many.Times!)
  10. DECLARE SUB Send (WD$, Bell!, Enter!, ColorUse!)
  11. DECLARE SUB Incomm (WD$, SendEnter!, LimitField!, ColorUse!)
  12. DECLARE FUNCTION AllTrun$ (WD$)
  13. DECLARE SUB ANSIMusic (Music$, Music)
  14. DECLARE SUB GameInfoUpdate (WD$, Enter, ColorUse, ColorBack)
  15. DECLARE SUB BackSpaceOver ()
  16. DECLARE SUB Center (WD$)
  17. DECLARE SUB ClrScrn ()
  18. DECLARE SUB ColorEasy (WD$, Fore, SendEnter)
  19. DECLARE FUNCTION DayOfWeek ()
  20. DECLARE SUB DoorBusy ()
  21. DECLARE SUB ErrorLevelSet (Error.Level)
  22. DECLARE SUB ExitDoor ()
  23. DECLARE FUNCTION FileExist (File.Name.Check$)
  24. DECLARE SUB GetTime (Hours, Minutes, Seconds, SinceMid#)
  25. DECLARE SUB HighScores (Score, PROGNAME$, OutputFileNumber)
  26. DECLARE SUB InitDoor ()
  27. DECLARE SUB MenuManager (Menu$(), CenterIt, TextClr, How.Many.Bars, Slct, BarFore, BarBack, Barnumber)
  28. DECLARE SUB MoveCursor (X, Y)
  29. DECLARE SUB Parser (Searchfor$, Searchin$, ParArray$(), ERRCODE)
  30. DECLARE FUNCTION RandNum (Low, High)
  31. DECLARE SUB ReadUsers (ERRCODE)
  32. DECLARE SUB ScriptCMD ()
  33. DECLARE SUB Sorter (ParArray$(), HowManyToSort)
  34. DECLARE SUB SysopPage (Answered)
  35. DECLARE SUB TimeConvert (Hours, Minutes, NT$)
  36. DECLARE SUB ViewFile (FileName$, ChkIt, MoreP, ExitP)
  37. DECLARE SUB WaitASec (How.Long.To.Wait)
  38. DECLARE SUB Windows (ULR, ULC, LRR, LRC, Fore, Back, BORDER, SHADOW)
  39. DECLARE SUB WriteUsers (ERRCODE)
  40. DECLARE SUB BlockSend (Array$(), CenterIt, LinesToSend)
  41. DECLARE SUB WindowPrint (WD$, Row, Col, Fore, Back)
  42. DECLARE SUB WindowInput (WD$, MaxLen, Row, Col, Fore, Back)
  43. DECLARE SUB RainbowSend (WD$, Bell, Enter, ColorUse)
  44. DECLARE SUB PromptIncomm (WD$, Default$, DefaultColor, LimitField, ColorUse)
  45. DECLARE SUB EntryIncomm (WD$, LimitField, FieldColor, ColorUse)
  46.  
  47. COMMON SHARED /DoorSource/ ARG$, SYSDPATH$, BBSName$, SysopNM$, CALLNAME$, Baud&, TIMELEFT, CommPort$, PROGNAME$, RELEASE$, ANSI, TWE$, I1$, I2$, O1$, O2$, Out.Of.Time, Yes, No, User.Color, BackGroundColor
  48. COMMON SHARED /DoorSource/ Exit.Dor.1$, Exit.Dor.2$, UserF$, UserL$, Time.Left, Caps, CommOnly, I3$, Page.Bell, Caller.Alarm, Sysop.Next, Hang.Up, User.Record, Network, Table$, Display.Toggle, Printer.Toggle, BusyFlag, UserFile$, Up.Key$, Down.Key$
  49. COMMON SHARED /DoorSource/ Parity, Filter, BusyFile$, TimeCred, SysFirst$, SysLast$, CommPort, Last.Clr.Used, NTH1$, NTH2$, NTH3$, EchoKey, No.Enter.Send, Exit.Dor.Clr1, Exit.Dor.Clr2, HotKey, Hot.Key, File.Missing$, BBSType$, Last.Time.Warning
  50. COMMON SHARED /DoorSource/ Node, TabSpace, InverseText, Sysop, BlinkText, Not.Around$, PARAM$, WindowNum%, Page.String$, PageSound.1, PageSound.2, PageSound.3, GameInfo, GameInfoCol, Default.Table$
  51. COMMON SHARED /DoorSource/ KeyBoardTimeOut, Protected.Input$, ANSI.Select$, NonAnsi.Select$, CarrierLossError, Ecode, Carrier.Check, VideoSeg%, No.Abort, Lines.Since, AutoMore, ANSIDetect
  52.  
  53. TYPE DATABLOCK
  54.       CityState AS STRING * 24
  55.       Password AS STRING * 12
  56.       BusinessPhone AS STRING * 13
  57.       VoicePhone AS STRING * 13
  58.       LastDateOn AS STRING * 20
  59.       LastTimeOn AS STRING * 5
  60.       ExpertMode AS STRING * 1
  61.       ProtocolType AS STRING * 5
  62.       LastDirListing AS STRING * 10
  63.       SecurityLevel AS INTEGER
  64.       TimesOn AS INTEGER
  65.       PageLength AS INTEGER
  66.       TotalUploads AS INTEGER
  67.       TotalDownloads AS INTEGER
  68.       DailyDownloadBytes AS DOUBLE
  69.       UserComment AS STRING * 30
  70.       SysopComment AS STRING * 30
  71.       ElapsedTime AS INTEGER
  72.       Subscription AS STRING * 20
  73.       SubscriptionExpire AS STRING * 20
  74.       AreaRegistration AS STRING * 50
  75.       AreaExpire AS STRING * 50
  76.       AreasToScan AS STRING * 50
  77.       TotalDownloadBytes AS DOUBLE
  78.       TotalUploadBytes AS DOUBLE
  79.       DeleteFlag AS STRING * 1
  80.       TimeEnteredDoor AS STRING * 5
  81.       AreaFrom AS INTEGER
  82.       MemorizedMessage AS LONG        ' PCBoard only
  83.       TimeCalled AS STRING * 5        ' Wildcat and PCBoard only
  84.       DailyDownloadTotal AS INTEGER   ' Wildcat only
  85.       MaxDownloadLimit AS DOUBLE      ' Wildcat only
  86.       LastRead AS INTEGER             ' Wildcat only
  87.       MaxDownloadKLimit AS DOUBLE     ' Wildcat, PCBoard, and DOORSYS only
  88.       ExpirationDate AS STRING * 10   ' DOORSYS only
  89.       LR0 AS STRING * 4  ' Last read pointers for PCBoard only
  90.       LR1 AS STRING * 4
  91.       LR2 AS STRING * 4
  92.       LR3 AS STRING * 4
  93.       LR4 AS STRING * 4
  94.       LR5 AS STRING * 4
  95.       LR6 AS STRING * 4
  96.       LR7 AS STRING * 4
  97.       LR8 AS STRING * 4
  98.       LR9 AS STRING * 4
  99.       LR10 AS STRING * 4
  100.       LR11 AS STRING * 4
  101.       LR12 AS STRING * 4
  102.       LR13 AS STRING * 4
  103.       LR14 AS STRING * 4
  104.       LR15 AS STRING * 4
  105.       LR16 AS STRING * 4
  106.       LR17 AS STRING * 4
  107.       LR18 AS STRING * 4
  108.       LR19 AS STRING * 4
  109.       LR20 AS STRING * 4
  110.       LR21 AS STRING * 4
  111.       LR22 AS STRING * 4
  112.       LR23 AS STRING * 4
  113.       LR24 AS STRING * 4
  114.       LR25 AS STRING * 4
  115.       LR26 AS STRING * 4
  116.       LR27 AS STRING * 4
  117.       LR28 AS STRING * 4
  118.       LR29 AS STRING * 4
  119.       LR30 AS STRING * 4
  120.       LR31 AS STRING * 4
  121.       LR32 AS STRING * 4
  122.       LR33 AS STRING * 4
  123.       LR34 AS STRING * 4
  124.       LR35 AS STRING * 4
  125.       LR36 AS STRING * 4
  126.       LR37 AS STRING * 4
  127.       LR38 AS STRING * 4
  128.       LR39 AS STRING * 4
  129. END TYPE
  130.  
  131. COMMON SHARED /DoorSource/ UserBlock AS DATABLOCK
  132.  
  133. CONST MorePrompt = 1
  134. CONST PressKeyPrompt = 2
  135. CONST Default1 = " (Enter=no) "
  136. CONST Default2 = " (Enter=none) "
  137. CONST Default3 = " (Enter=quits) "
  138. CONST Black = 0
  139. CONST Blue = 1
  140. CONST Green = 2
  141. CONST Cyan = 3
  142. CONST Red = 4
  143. CONST Magenta = 5
  144. CONST Brown = 6
  145. CONST White = 7
  146. CONST Gray = 8
  147. CONST HiBlue = 9
  148. CONST HiGreen = 10
  149. CONST HiCyan = 11
  150. CONST HiRed = 12
  151. CONST HiMagenta = 13
  152. CONST Yellow = 14
  153. CONST HiWhite = 15
  154.  
  155. '
  156. '
  157. '        Door Source  - Copyrighted 1988,1989, 1990 - Written by Todd Miller
  158. '        Version 4.0  - Computer City, USA
  159. '
  160. '     ALL OR ANY MODIFCATIONS TO THIS PART OF DOOR SOURCE OR ANY OTHER
  161. '     PART OF DOOR SOURCE WILL RESULT IN MAJOR UNCORRECTABLE BUGS!
  162. '
  163.    CALL InitDoor
  164.  
  165. '                   Door Source 3.3 init completed!
  166.  
  167.